home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Online / CallMan / ARexx / CallMan-Export.adm < prev    next >
Encoding:
Text File  |  1997-10-07  |  2.7 KB  |  115 lines
  1. /* $VER: CallMan-Export.adm 1.1 (07.10.97)
  2.  
  3. von Alexander 'Sascha' Fichtner
  4. (basierend auf dem "Ex-Import.asm" Modul
  5.  von Bernd Stange)
  6.  
  7.  
  8. Exportiert Datensätze von ADM ins CallMan-Format
  9.  
  10. Änderungen:
  11. ===========
  12. 1.0: - erste Version
  13.  
  14. 1.1: - Telefonnummern werden jetzt statt in eine einzelne
  15.        Zeile in mehrere Zeilen gespeichert
  16.  
  17. "CallMan" findet man im Aminet, Verzeichnis "comm/misc".
  18.  
  19. */
  20.  
  21. /***************************************************************/
  22. Ver = 'CallMan-Export.adm 1.0'
  23.  
  24.  
  25. ADDRESS 'ADM.1'
  26.  
  27. OPTIONS RESULTS
  28.  
  29.  
  30. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  31.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  32.       EXIT 10
  33.  
  34. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  35.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  36.       EXIT 10
  37.  
  38.  
  39. IF ~SHOW(PORTS,'ADM.1') THEN DO
  40.    SAY 'Bitte erst AdressMaster starten !'
  41. EXIT
  42. END
  43.  
  44.  
  45.  
  46.    Flag = 'rtez_flags = ezreqf_centertext'
  47.      NL = "0a"x
  48.   Titel = Ver
  49.  Gadget = 'Exportieren|Abbruch'
  50. Reqtext = 'A C H T U N G :',
  51.           || NL || 'In dieser Version werden alle Einträge',
  52.           || NL || 'aus dem Bemerkungs-Feld ignoriert !'
  53. Auswahl = rtezrequest(Reqtext,Gadget,Titel,Flag)
  54.  
  55. IF Auswahl = 0 THEN CALL Ende
  56. IF Auswahl = 1 THEN CALL Exportieren
  57.  
  58.  
  59. Exportieren:
  60. ADDRINMEM
  61. numadr = RESULT
  62. IF numadr = 0 THEN DO
  63. call rtezrequest('Keine Datensätze gefunden !', "OK")
  64. EXIT
  65. END
  66. filename = rtfilerequest("","","Export-Datei speichern","Exportieren!",'rtfi_flags=freqf_save',)
  67.  
  68. IF ~OPEN(datei,filename,"W") THEN DO
  69.    SAY "Kann die Datei nicht öffnen!"
  70. EXIT
  71. END
  72. /* Zeile = WriteLn(datei,'Importdatei')*/
  73. ADDRINMEM
  74. numadr = RESULT
  75. ACTIVATEFIRST
  76. DO FOR numAdr
  77. GETADDRESS ADM
  78. Zeile = WriteLn(datei,adm.SALUTATION || NL || adm.LASTNAME || NL || ,
  79.                       adm.FIRSTNAME || NL ||  adm.TITLE || NL || ,
  80.                       adm.COMPANY || NL ||,
  81.                       adm.ADDRESS1 || NL ||  adm.ADDRESS2 || NL || ,
  82.                       adm.POSTCODE || NL ||  adm.CITY || NL || ,
  83.                       adm.COUNTRY || NL ||  adm.BIRTHDAY)
  84.  
  85. IF INDEX(adm.TELEPHONE,'|') = 0 THEN DO
  86.     Zeile = WriteLn(datei, adm.TELEPHONE || NL || NL || NL)
  87.     END
  88. ELSE DO
  89.     Rest = adm.TELEPHONE
  90.     DO i = 1 to 4
  91.         IF INDEX(Rest, '|') = 0 THEN DO
  92.             Zeile = WriteLn(datei, Rest)
  93.             Rest = ""
  94.             END
  95.         ELSE DO
  96.             Zeile = WriteLn(datei, LEFT(Rest, INDEX(Rest, '|')-1 ) )
  97.             Rest = SUBSTR(Rest, INDEX(Rest, '|')+1 )
  98.             END
  99.         END
  100.  
  101.     END
  102.  
  103. Zeile = WriteLn(datei,adm.FAX || NL || ,
  104.                       adm.EMAIL1 || NL || adm.EMAIL2 || NL || adm.ID)
  105.  
  106. ACTIVATENEXT
  107. END
  108. call rtezrequest('Es wurden "' || numadr || '" Datensätze in die Datei "' || filename || '" exportiert !', "OK")
  109. CALL Ende
  110.  
  111.  
  112. Ende:
  113. CALL CLOSE(Datei)
  114. EXIT
  115.